home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / INDECS.f < prev    next >
Text File  |  1992-07-31  |  928b  |  27 lines
  1.       SUBROUTINE INDECS(I1,I2,*)
  2. *-----------------------------------------------------------------------
  3. *   
  4. *  Sub-task of routine INDECO.  
  5. *  Stores string without {} from SSTA(I1:I2) into SKYSTR,   
  6. *  sets NKYSTR, LKYSTR, KKYSTA, KKYEND. 
  7. *   
  8. *-----------------------------------------------------------------------
  9.       include 'PARAM.h' 
  10.       include 'ALCAZA.h' 
  11.       include 'KEYCOM.h' 
  12. *   
  13.       L=I2-I1-1 
  14.       IF(NKYSTR.EQ.MXKNAM.OR.LKYSTR+L.GT.MDIMST)  THEN  
  15.          WRITE (MPUNIT,10000) NKYSTR,MXKNAM,MDIMST  
  16.          RETURN 1   
  17.       ENDIF 
  18.       NKYSTR=NKYSTR+1   
  19.       KKYSTA(NKYSTR)=LKYSTR+1   
  20.       SKYSTR(LKYSTR+1:LKYSTR+L)=SSTA(I1+1:I2-1) 
  21.       LKYSTR=LKYSTR+L   
  22.       KKYEND(NKYSTR)=LKYSTR 
  23. 10000 FORMAT(/1X,8('*-*-'),' WARNING - no. of strings in commands =',   
  24.      +I5,' has reached maximum =',I5/ 33X,  
  25.      +' or total length has reached maximum =',I5,' rest ignored')  
  26.       END   
  27.